Shareware Grab Bag/Shareware Grab Bag.iso/090/cmln0386.arc/ADA2.LTG

Text File | 1986-03-03 | 384b | 15 lines

                            Listing 2

     if x = 10 then
          case y is
               when 10     => statement 1 ;
               when others => statement 2 ;
          end case ;
     else
          case y is
               when 11     => statement 3 ;
               when others => statement 4 ;
          end case ;
     end if ;